#declare Ball = 
 sphere{ <0,0,0>,0.25 scale <1,1,1> rotate<0,0,0> translate<0,0,0>
	 texture{ pigment{ color rgb<1,1,1>*0.7}
                  finish { phong 1 reflection{ 0.3 metallic 0.5} }
                }
       } //----------------------------------------------------

union{ //------------------------------------------------------
 #local Nr = 0;     // start
 #local EndNr = 30; // end
 #while (Nr< EndNr) 
   object{ Ball translate<1,0.25,0> rotate<0,Nr * 360/EndNr,0>} 

 #local Nr = Nr + 1;    // next Nr
 #end // ---------------  end of loop 

rotate<0,0,0>
translate<0,0,0>
} // end of union ---------------------------------------------
